The plot shown on the next slide is simply an interactve plot (made using plotly) of random normal distribution of 100 points [mean is 0 std is 1] The code used is shown below
library(plotly) f <- list( family = "Courier New, monospace", size = 18, color = "#7f7f7f" ) x <- list(title = "x Axis", titlefont = f) y <- list(title = "y Axis", titlefont = f) plot_ly(x = ~rnorm(100), y = ~rnorm(100), mode="markers")%>% layout(xaxis = x, yaxis = y)